home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / FRICDEF.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  54 lines

  1. 0  HOME : TEXT 
  2. 95  HTAB 5: VTAB 7
  3. 100  PRINT "The answer is...."
  4. 102  GOSUB 1000
  5. 115  HTAB 17: VTAB 15
  6. 120  FLASH : PRINT "FRICTION": NORMAL 
  7. 122  GOSUB 1000
  8. 130  HTAB 5: VTAB 22
  9. 140  PRINT "Press any key for a definition of       FRICTION."
  10. 150  GET KY$
  11. 160  HOME 
  12. 165  PRINT : PRINT : PRINT : PRINT 
  13. 170  PRINT "FRICTION forces are forces that oppose  motion.
  14. 172  GOSUB 1000
  15. 174  PRINT : PRINT : PRINT 
  16. 180  PRINT "   FRICTION is caused by the               irregularities of any two contacting    surfaces."
  17. 182  GOSUB 1000
  18. 184  PRINT : PRINT : PRINT 
  19. 190  PRINT "So... the smoother the surface, the     less the friction."
  20. 192  PRINT : PRINT : PRINT 
  21. 194  GOSUB 1000
  22. 200  PRINT : PRINT "Press any key for an example."
  23. 210  GET KY$
  24. 250  HOME 
  25. 252  PRINT : PRINT 
  26. 254  PRINT "              xxx"
  27. 256  PRINT "             x   x"
  28. 258  PRINT "           xx     xxxx"
  29. 260  PRINT "          x           x"
  30. 262  PRINT "         xxx xxxxxxx xxx"
  31. 264  PRINT "            O       O"
  32. 270  PRINT : GOSUB 1000
  33. 280  PRINT "You're in a car.  "
  34. 282  GOSUB 1010
  35. 284  PRINT : PRINT "You have to hit the brakes fast."
  36. 286  GOSUB 1010
  37. 290  PRINT : PRINT "On which kind of surface will you stop  most quickly?"
  38. 300  PRINT : PRINT 
  39. 310  PRINT "     a.  A dry road"
  40. 312  PRINT "     b.  A wet road"
  41. 314  PRINT "     c.  An icy road "
  42. 316  PRINT "     d.  It doesn't matter."
  43. 318  PRINT : GET KY$
  44. 320  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  45. 330  IF KY$ = "a"  OR KY$ = "A"  THEN  PRINT "RIGHT!!  That's because a dry road has  more friction.": GOSUB 1030: PRINT  CHR$(4);"run qs6"
  46. 340  IF KY$ = "b"  OR KY$ = "B"  THEN  PRINT "NO, you wouldn't stop faster on a wet   surface!  Try again.": GOSUB 1030: GOTO 250
  47. 350  IF KY$ = "c"  OR KY$ = "C"  THEN  PRINT "Wrong!  I hope you don't have a driver  license.  Try another answer.": GOSUB 1030: GOTO 250
  48. 360  IF KY$ = "d"  OR KY$ = "D"  THEN  PRINT "Nope!  It does make a difference.       Think about it and try again.": GOSUB 1030: GOTO 250
  49. 370  IF KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"c"  OR KY$ < >"C"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  PRINT "Please enter <a>, <b>, <c>, or <d>!!!!": GOSUB 1000: GOTO 250
  50. 500  PRINT  CHR$(4);"run qs6"
  51. 999  END 
  52. 1000  FOR I = 0 TO 2000: NEXT I: RETURN 
  53. 1010  FOR I = 0 TO 1000: NEXT I: RETURN 
  54. 1030  FOR I = 0 TO 3500: NEXT I: RETURN